home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / pssst.arc / PSPROMPT.PRG < prev    next >
Encoding:
Text File  |  1986-08-14  |  2.4 KB  |  64 lines
  1. * Program..: PSPROMPT.PRG
  2. * Author...: Maj Jim McMurry
  3. * Date.....: 07/13/86
  4. * Notice...: Copyright 1986, All Rights Reserved
  5. * Notes....: A Sub-Routine to print screen prompts in a box - centered
  6. *            on a specified line
  7. *            If gflag = 'T', you get the box, otherwise just centered text
  8. *
  9. * Inputs...: gflag,prompt, line, gmodel (Z,O,I for zenith, IBM, or OTHER)
  10. *
  11. STORE "  " + prompt +  "  " TO prompt
  12. DO CASE
  13.    CASE gmodel = 'Z'
  14.       STORE CHR(27)+CHR(70) TO grafon
  15.       STORE CHR(27)+CHR(71) TO grafoff
  16.       STORE CHR(27)+CHR(120)+CHR(53) TO gcuroff
  17.       STORE CHR(27)+CHR(121)+CHR(53) TO gcuron
  18.       ? gcuroff
  19.    * --- a global line maker
  20.       STORE 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'+;
  21.             'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa' TO gline
  22.       STORE (80 - LEN(prompt)) / 2  TO col
  23.       IF gflag = 'Y'
  24.          STORE 'f' + $(gline,1,LEN(prompt)) + 'c' TO topln
  25.          STORE '`' TO vert
  26.          STORE 'e' + $(gline,1,LEN(prompt)) + 'd' TO btmln
  27.          @ line - 1, col - 1 SAY grafon + topln + grafoff
  28.          @ line,col - 1 SAY grafon + vert + grafoff
  29.          @ line,col + LEN(prompt) SAY grafon + vert + grafoff
  30.          @ line + 1,col - 1 SAY grafon + btmln + grafoff
  31.       ENDIF
  32.       @ line,col SAY prompt
  33.       STORE grafon + gline + grafoff TO gline
  34.    CASE gmodel = 'I'
  35.       STORE ' ' TO gcuroff
  36.       STORE ' ' TO gcuron
  37.       * --- a global graphics line 80 columns long
  38.       STORE CHR(205)+CHR(205)+CHR(205)+CHR(205)+CHR(205) TO gline
  39.       STORE gline + gline + gline + gline TO gline
  40.       STORE gline + gline + gline + gline to gline
  41.       STORE $(gline,1,78) TO gline
  42.       STORE (80 - LEN(prompt)) / 2  TO col
  43.       IF gflag = 'Y'
  44.          STORE CHR(201) + $(gline,1,LEN(prompt)) + CHR(187) TO topln
  45.          STORE CHR(200) + $(gline,1,LEN(prompt)) + CHR(188) TO btmln
  46.          @ line - 1, col - 1 SAY  topln
  47.          @ line,col - 1 SAY CHR(186)
  48.          @ line,col + LEN(prompt) SAY CHR(186)
  49.          @ line + 1,col - 1 SAY btmln
  50.       ENDIF
  51.       @ line,col SAY prompt
  52.    CASE gmodel = 'O'
  53.       STORE ' ' TO gcuroff
  54.       STORE ' ' TO gcuron
  55.       STORE '----------------------------------------';
  56.            +'--------------------------------------' TO gline
  57.       STORE (80 - LEN(prompt)) / 2 TO col
  58.       @ line,col SAY prompt
  59. ENDCASE
  60. RELEASE col, prompt, topln, btmln, vert, line, grafon, grafoff
  61. RETURN
  62. * EOF PSPROMPT.PRG
  63.  
  64.